home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d8 / tty.arc / TTY.BAS (.txt) < prev   
Encoding:
GW-BASIC  |  1991-06-06  |  1.1 KB  |  50 lines
  1. 10  SCREEN 0,0:WIDTH 80
  2. 15  KEY OFF:CLS:CLOSE
  3. 20  DEFINT A-Z
  4. 25  LOCATE 25,1
  5. 30  PRINT STRING$(60," ")
  6. 40  FALSE=0:TRUE=NOT FALSE
  7. 50  MENU=5 'Value of Menu key (^E)
  8. 60  XOFF$=CHR$(19):XON$=CHR$(17)
  9. 100  LOCATE 25,1 : PRINT "Async TTY Program";
  10. 110  LOCATE 1,1:LINE INPUT "Speed?";SPEED$
  11. 120  COMFIL$="COM1:"+SPEED$+",e,7"
  12. 130  OPEN COMFIL$ AS #1
  13. 140  OPEN "SCRN:"FOR OUTPUT AS #3
  14. 200  PAUSE=FALSE
  15. 210  A$=INKEY$:IF A$="" THEN 230
  16. 220  IF ASC(A$)=MENU THEN 300 ELSE PRINT #1,A$
  17. 230  IF EOF(1) THEN 210
  18. 240  IF LOC(1) > 128 THEN PAUSE=FALSE:PRINT #1,XOFF$;
  19. 250  A$=INPUT$(LOC(1) ,#1)
  20. 260  PRINT #3,A$;:IF LOC(1)>0 THEN 240
  21. 270  IF PAUSE THEN PAUSE=FALSE:PRINT #1,XON$;
  22. 280  GOTO 210
  23. 300  LOCATE 1,1 : PRINT STRING$(30,32):LOCATE 1,1
  24. 310  LINE INPUT "FILE?";DSKFIL$
  25. 400  LOCATE 1,1:PRINT STRING$(30,32):LOCATE 1,1
  26. 420  IF TXRX$="T" THEN OPEN DSKFIL$ FOR INPUT AS #2: GOTO 1000
  27. 430  OPEN DSKFIL$ FOR OUTPUT AS #2
  28. 440  PRINT #1 CHR$(13)
  29. 500  IF EOF(1) THEN GOSUB 600
  30. 510  IF LOC(1)>128 THEN PAUSE=TRUE : PRINT #1,XOFF$;
  31. 520  A$=INPUT$(LOC(1),#1)
  32. 530  PRINT #2,A$;:IF LOC(1)>0 THEN 510
  33. 540  IF PAUSE THEN PAUSE=FALSE:PRINT #1,XON$
  34. 550  GOTO 500
  35. 600  FOR I=1 TO 5000
  36. 610  IF NOT EOF(1) THEN I=9999
  37. 620  NEXT I
  38. 630  IF I>9999 THEN RETURN
  39. 640  CLOSE #2,CLS;LOCATE 25,10:PRINT "*download complete *";
  40. 650  RETURN 200
  41. 1000  WHILE NOT EOF(2)
  42. 1010  A$=INPUT$(1,#2)
  43. 1020  PRINT #1,A$;
  44. 1030  WEND
  45. 1040  PRINT #1,CHR$(28);^Z TO MAKE CLOSE FILE.
  46. 1050  CLOSE #2:CLS:LOCATE 25,10:PRINT "** Upload complete **";
  47. 1060  GOTO 200
  48. 9999  CLOSE:KEY ON
  49. 10100  A$=INPUT$(1,#2)
  50.